home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  32 lines
  1. 10  ONERR  GOTO 50000
  2. 50  TEXT : HOME : SPEED= 255
  3. 60  PRINT  TAB( 5)"SOFTDISK MAGAZETTE   OCT 83": PRINT 
  4. 100  HTAB 7: PRINT "A = COVER PAGE": PRINT 
  5. 110  HTAB 7: PRINT "B = ABOUT SOFTDISK": PRINT 
  6. 120  HTAB 7: PRINT "C = MACHINE MAGIC, PART 4": PRINT 
  7. 130  HTAB 7: PRINT "D = APPLESOFT TUTORIAL, PART 5": PRINT 
  8. 150  HTAB 7: PRINT "E = PAPERLESS PAGES": PRINT 
  9. 160  HTAB 7: PRINT "F = PIPELINE": PRINT 
  10. 170  HTAB 7: PRINT "G = ORDER BLANK": PRINT 
  11. 175  HTAB 7: PRINT "H = IT'S A SMALL WORLD": PRINT 
  12. 180  HTAB 7: PRINT "I = HARVEST": PRINT 
  13. 190  HTAB 7: PRINT "J = QUIT"
  14. 230  POKE 49168,0
  15. 300  PRINT : PRINT "WHICH?";: GET R$: PRINT R$
  16. 410  IF R$ <"A"  OR R$ >"J"  THEN 50
  17. 440  ON  ASC(R$) -64 GOTO 1000,2000,3000,4000,6000,7000,8000,5000,9000,10000
  18. 900  TEXT : HOME : GOTO 40000
  19. 1000  HOME : PRINT : PRINT  CHR$(4)"RUNOCT 83.COVER"
  20. 2000  HOME : PRINT : PRINT  CHR$(4)"RUNABOUT.SOFTDISK"
  21. 3000  HOME : PRINT : PRINT  CHR$(4)"RUNMACHINE MAGIC"
  22. 4000  HOME : PRINT : PRINT  CHR$(4)"BRUNTUTITLE"
  23. 5000  HOME : PRINT : PRINT  CHR$(4)"RUNIT'S A SMALL WORLD"
  24. 6000  HOME : PRINT : PRINT  CHR$(4)"RUNSOFTDISK PRESENTS"
  25. 7000  HOME : PRINT : PRINT  CHR$(4)"RUNPIPELINE"
  26. 8000  HOME : PRINT : PRINT  CHR$(4)"RUNORDER.BLANK"
  27. 9000  HOME : PRINT : PRINT  CHR$(4)"RUNMENU"
  28. 10000  HOME : PRINT : PRINT  CHR$(4)"RUNQUIT"
  29. 50000  HOME : VTAB 5: PRINT  TAB( 9)"SELECTION ["R$"] IS ON": PRINT : PRINT  TAB( 5)"THE OTHER SIDE OF THE DISK.": PRINT : PRINT : PRINT : PRINT : PRINT  TAB( 8)"FLIP THE DISK, PLEASE": PRINT : PRINT  TAB( 17)"&": PRINT : PRINT  TAB( 11)"PRESS SPACE BAR"
  30. 50100  PRINT : PRINT : PRINT : PRINT  TAB( 2)"OR PRESS <RETURN> TO RETURN TO MENU": PRINT  CHR$(7);
  31. 50200  HTAB 17: VTAB 14: GET K$: IF K$ < > CHR$(32)  THEN  RUN 
  32. 50300  GOTO 440